Microsoft Interactive CD Sampler/Microsoft Interactive CD Sampler.iso/DEMOS/BOOKS/BKSHELF.DIR/00029.ls

Text File | 1996-07-19 | 588 b | 31 lines

global paused

on mouseDown
  if paused then
    repeat while the stillDown
      set the memberNum of sprite 12 to 81
      updateStage()
    end repeat
  else
    sound stop 1
    repeat while the stillDown
      set the memberNum of sprite 12 to 77
      updateStage()
    end repeat
  end if
end

on mouseUp
  if not paused then
    set the soundEnabled to 0
    set paused to 1
    set the memberNum of sprite 12 to 71
  else
    set the soundEnabled to 1
    set the volume of sound 1 to 255
    set paused to 0
    set the memberNum of sprite 12 to 67
  end if
  updateStage()
end